From: Glenn Morris <rgm@gnu.org>
Date: Wed, 7 Sep 2011 07:28:05 +0000 (-0700)
Subject: * lib-src/etags.c (Fortran_functions): Handle "elemental" functions.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~2371
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=1dffe8ed137fa5423137c7b79076fff5465c17ad;p=emacs.git

* lib-src/etags.c (Fortran_functions): Handle "elemental" functions.
---

diff --git a/lib-src/ChangeLog b/lib-src/ChangeLog
index f6c224148aa..c40c7b007b9 100644
--- a/lib-src/ChangeLog
+++ b/lib-src/ChangeLog
@@ -1,3 +1,7 @@
+2011-09-07  Glenn Morris  <rgm@gnu.org>
+
+	* etags.c (Fortran_functions): Handle "elemental" functions.
+
 2011-09-07  Dieter Schuster  <didischuster@arcor.de>  (tiny change)
 
 	* etags.c (Fortran_functions): Handle "pure" functions.  (Bug#9359)
diff --git a/lib-src/etags.c b/lib-src/etags.c
index 0197bbd49cc..ac5ebee9b07 100644
--- a/lib-src/etags.c
+++ b/lib-src/etags.c
@@ -4051,6 +4051,9 @@ Fortran_functions (FILE *inf)
       if (LOOKING_AT_NOCASE (dbp, "pure"))
 	dbp = skip_spaces (dbp);
 
+      if (LOOKING_AT_NOCASE (dbp, "elemental"))
+	dbp = skip_spaces (dbp);
+
       switch (lowcase (*dbp))
 	{
 	case 'i':